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1 MODULE CNFWORKQ (IDENT = ‘V04-000') = 
BEGIN 
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' 
lenutnnenatennententenennnentecerectentetertententnetnntnennnnnnnnennennentns 
'® 

'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

- ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
't ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
tw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


a” 
® 
ot 
® 
® 
® 
7 
* 
& 
® 
ie TRANSFERRED. * 
® 
® 
* 
® 
® 
® 
* 
t 
® 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ eORPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
| pedeeguhennendueeueenanensensetoeneneatnennensessetebeinebennnesentbenees 


i ABSTRACT: 


' 

: This module contains routines to manage the internal 
work queue. 
' 


i] 

VAX/VMS operating system. unprivileged user mode, 
; AUTHOR: Tim Halvorsen, June 1980 
i] 

' 
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Modified by: 


ae 
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Include files 


et at a 8 2 ts a 2 a a se ts so tt ts a 8 2 ee 


Be Se Se Se Be Se Ge Fe Se Ge Se Se Ge Se Fe Ge Fe Ge Fe Ge Se Se Se Be Ge Se SF we Se Gs Se Se Ge Se Se Se Se Se Se Se Se SeSe Se Se Se Se Se Se Se Setseesees 


8 04 ! 
49 04 
39 Bee LIBRARY ‘SYSS$LIBRARY:STARLET'; ! VAX/VMS common definitions 
52 0938 REQUIRE ‘SYSSLIBRARY:UTILDEF'; ! Misc. VMS definitions 
7 $55 REQUIRE ‘LIBS: CNFWOQDEF'; ' Structure definitions 


14 
FACILITY: DECnet Configurator Module, (NICONFIG) 


vO6=000 1-90-1984 93eoiee  ENTCNE. SkcSeneuonKa eso—1 bans , 
; 
: 


1 
Table of contents 


3 46 1 

3 rk 1 

3 48 1 

: 49 1 

; 1 FORWARD ROUTINE 

. oI 1 wkq$add_work_item, ' Add a work item . 
3 ° } wkq$do_work_Ttem; ! Dequeue and execute a work item 
; 664 4 1! 

; & 5 1 ! BUILTIN functions 

;. § ee 

;- Of oF <n 

; @ 28 1 

; WwW 59 1 INSQ 

; £0 60 1 REMQUE: ' REMQUE instruction 

Soe a 0261 1 

ae 0 6¢ 1! 

eae 8 65 1 ! OWN storage 

: 74 64 1! 

wae 0265 1 

; @& 0266 1 OWN 

“Pes id 0267 1 work_queue: VECTOR (C2) ! Work queue Listhead 

; 0268 1 INITIAL Gwork ~queue ee _queue 

; 7 0269 1 timed_queue: VECTOR C2) timed work queue Listhead 
: 80 0270 1 INITIAL (timed _queue, timed_queue) ; 

:s #8 48 1 

.~& 0 if; 1! 

oe 0273 1! External routines 

; 0274 1! 

; 8 0275 «(1 

; 86 0276 1 mig 5 ROUTINE 

; 8 0277 1 CNFSGET_ZVM: ADDRESSING_MODE (GENERAL), ' Allocate storage 
; 8688 0278 #1 CNFSFREE_VM: ADDRESSING_MODE (GENERAL); i Deallocate storage 


BUILTIN 
INSQUE, ! ay UE instruction 
| 
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GLOBAL ROUTINE wkq$add_work_item (action_routine, argl, arg2, arg3) = 


This routine adds a single work item to the work igi 
A $WAKE is performed for the first work item added. 


Inputs: 


99 action_routine = Address of routine to call to perform work. 


argi/273 = Arguments to be passed to action routine when called. 
Outputs: 
routine = status code 
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100 

102 

108 

104 

105 

106 

107 

108 

109 

110 length, ' Length of allocate/deallocation 
i entry: REF BBLOCK; ! Address of work queue entry 

113 Length = waeSc_tengtni ! Length of a work queue entry 
3 return_if_error(CNn $GET_ZVM(Length,entry)); ! Allocate entry 

116 entry Cwqe$l_pc] = .action_routine; ' Store address of action routine 
117 entry Cwqe$l_argi] = .argl; ' then store 3 arguments 

118 0 entry udest_arg¢) = .arge; ' 

13 > entry Cwqe$l_arg3] = .arg3; ! assume all arguments must be given 
is} : IF INSQUE(.entry, .work_queue [1]) ! Queue entry at tail of List 

\<7 : SWAKE(); ! If first, wakeup process 

125 1 RETURN true; 

126 1 

127 1 END; 


“TITLE CNFWORKQ 
“IDENT \V04-000\ 


-PSECT SOWNS,NOEXE,2 


00000000" 00000000' 00000 worK_QUEUE : 
3 .ADDRESS WORK_QUEUE, WORK_QUEUE : 

00000000" 00000000' 00008 TIMED_QUEUE: 
ADDRESS TIMED_QUEUE, TIMED_QUEUE : 


-EXTRN CNFSGET_ZVM, CNFSFREE_VM 
eEXTRN SYSSWAKE 


-PSECT SCODES,NOWRT,2 


stnrey UECEARS VORE ITER, Save nothing : 0279 


Q SUBL2 #8, S 


08 C 


oo 
oo 
mo 


oo 


Sy 


; Routine Size: 


04 


000000006 


08 
10 
00' 


00 


00000006 


AE 


AQ 
AQ 
DF 


00 
50 


Routine Base: 


ow 
eam 
0vo 
‘es 
_—— 
wow 
@vo0 


¢ 
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5 ln fae ae 
“>: 2 
2S, a 
Sos 


Ars ’R 
ACTION, Re ROUTINE 8(RO) 
(80), 3 aWORK. ~QUEUE+4 
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GLOBAL ROUTINE wkq$do_work_item = 
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This routine dequeves the next work item to be performed 
and calls the action routine associated with the item. 


i Inputs: 


1 

' 

' 

' 

! 

None 
Outputs: 

1 

' 


routine = True if successful, false if nothing in queue 
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length, ! Length of work queue entry 
entry: REF BBLOCK; ! Address of entry in queue 
? if REMQUE(.work_queue [0], entry) ! Remove first entry from queue 
: RETURN false; ! If none, return unsuccessful 
34 (.entry esgee.ge2) 5 Onery Cwqe$l_argil, 
$ -entry Cwqe$l_arg2], .entry Cwqe$l_arg3]); ! Call routine 
34 Length = waeFc , Lengtn: 
3 CNFSFREE_VM(Length, entry); ! Deallocate entry 
$0 RETURN true; 
35 END; 
0000 0000 ENTRY WKQSDO_WORK_ITEM, Save nothing 
5€ 04 C2 0000 SUBL2 
7E 0000' DF F 208; REMOUE auORK_ QUEUE. ENTRY 
50 g 08 6 C MOVL parry RO 
7E 10 AO 70 QOO0F mova (ROS, (SP) 
0c AQ DD \3 PUSHL 12(RQ) 
68 BO 03 F 1 CALLS #5, @8(RO) 
4 AE iC D 1A MOVL. #28, LENGTH 
5E 0D 1 PUSHL 
08 iA F PUSHAB LENGTH 
000000006 98 09 Fe CALLS #2, CNFSFREE_VM 
A MOVL #1, RO 
4 D RET 
F 1$: CLRL RO 
ET 


Page 
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; Routine Size: 49 bytes, Routine Base: SCODE$ + 0039 
> 164 8 26 1 
s Teo 2 1 END 
; 166 0354 0 ELUDOM 
é PSECT SUMMARY 
: Name Bytes Attributes 
:  SOWNS 16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, Con MOE TE oA Ente 
; SCODES 106 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Bp vine a eM eke T° el anh “= Syabols ecooees= Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 ? 0 581 00:01.1 
3 COMMAND QUALIFIERS 8 
HY BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:CNFWORKQ/OBJ=OBJ$:CNFWORKQ MSRC$: CNFWORKQ/UPDATE=(ENHS: CNFWORKQ) 
; Size: 106 code + 16 data bytes NM 
: hun Tine: §°08.0 ‘ NH 


; Elapsed Time: 0:10.46 
3; Lines/CPU Min: 424 


ry Used: 53 pages 
; Compilation Complete’ 
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